﻿<%@  language="VBSCRIPT" codepage="65001" %>
<%Session.CodePage=65001%>
<!--#include file="inc/function.asp"-->
<%CheckAdmin%><!--#include file="../inc/config.asp"-->
<%
'使用mssql数据库
   set conn=server.CreateObject("ADODB.CONNECTION")
   connstr="DRIVER=SQL Server;SERVER="&sqls&";User Id="&datauser&";PASSWORD="&datapass&";DATABASE="&data&""
   conn.open connstr
   
   '使用access数据库

   'connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath(""&accdata&"")
'set conn=server.createobject("ADODB.CONNECTION")
'conn.open connstr
If Err Then
response.Write "连接数据库出错!"
err.Clear
Set conn = Nothing
Response.End
End If
%>
